home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0941.dms / q0941.adf / EasyRexx / SetWidth.erex < prev   
Text File  |  1997-04-10  |  198b  |  14 lines
  1. /* EasyCalc 2.0 Arexx Script */
  2.  
  3. options results
  4.  
  5. 'getnumber "Enter the new width for all columns:" "10" "600"'
  6.  
  7. newwidth = result
  8.  
  9. easytofront
  10.  
  11. do column=0 for 256
  12.   'colwidth' column newwidth
  13. end
  14.